home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / memory & system tools / vmm / installvmm / español < prev    next >
Text File  |  1996-04-07  |  14KB  |  416 lines
  1. ; VMM Installer script by Martin Apel
  2. ; Installation script for VMM 3.3
  3.  
  4. (set @app-name "VMM")
  5.  
  6. (welcome "      Bienvenido a la instalación de VMM\n\n"
  7.          "      Memoria Virtual para Amigas con MMU\n\n"
  8.          "        Copyright 1993-95 de Martin Apel\n"
  9.          "        Traducción española de Dimas Caparrós\n"
  10.          "        dimas@maze.mazanet.es ó 2:343/119.76\n\n"
  11.          "Novazto  instala todo escepto los ficheros de desarrolladores.\n"
  12.          "Avanzado instala todo sin confirmación.\n"
  13.          "Experto  instala todo con confirmación para todo.\n")
  14.  
  15. (if (= 0 @user-level) ; then
  16.     (set install_level %000111)
  17. ;else
  18.     (set install_level (askoptions (prompt "¿Qué quiere instalar?")
  19.                                    (help   @askoptions-help)
  20.                                    (choices "VMM" "Iconoss" "Documentos" "Fichero de Desarrolladores" "Herramientas" "ARexx scripts")))
  21. )
  22.  
  23. (set def_help "\n\nSi necesita más ayuda, mire en el manual \"VMM.guide\"\n\n")
  24.  
  25. (set my_level @user-level)
  26. (user 2)
  27. (set vmmdest
  28.     ;get destination directory for "VMM"
  29.      (askdir (prompt "Seleccione el directorio donde quiere poner el ejecutable de VMM (y las herramientas).")
  30.              (help   "Debe ser un directorio donde pueda acceder fácilmente a VMM"
  31.                      "desde el Workbench o el CLI/Shell." def_help
  32.                      @askdir-help)
  33.              (default @default-dest)
  34.              (disk)
  35.      )
  36. )
  37. (user my_level)
  38.  
  39. (set copy_vmm   (BITAND %000001 install_level))
  40. (set copy_icons (BITAND %000010 install_level))
  41. (set copy_docs  (BITAND %000100 install_level))
  42. (set copy_dev   (BITAND %001000 install_level))
  43. (set copy_tools (BITAND %010000 install_level))
  44. (set copy_rexx  (BITAND %100000 install_level))
  45.  
  46. ; Copy VMM files
  47.  
  48. (if copy_vmm
  49.   (
  50.     (set @default-dest vmmdest)
  51.     (set vmmtacked (tackon vmmdest "VMM"))
  52.  
  53.     ; ask, if we want to overwrite the old VMM if it exists
  54.     (set overwrite 1)
  55.     (if (exists "L:VMM-Handler")
  56.       (
  57.         (set old_version (getversion "l:VMM-Handler"))
  58.         (set old_ver (/ old_version 65536))
  59.         (set old_rev (- old_version (* old_ver 65536)))
  60.  
  61.         (set new_version (getversion "/l/VMM-Handler_4K"))
  62.         (set new_ver (/ new_version 65536))
  63.         (set new_rev (- new_version (* new_ver 65536)))
  64.  
  65.         (set overwrite (askbool (prompt "\nTiene VMM "
  66.                                          old_ver "." old_rev " ya instalado."
  67.                                         ".\n¿Quiere borrarlo por VMM "
  68.                                          new_ver "." new_rev " ?\n")
  69.                                 (help def_help @askbool-help)
  70.                                 (default 1)
  71.                                 (choices "Si" "No"))
  72.  
  73.         )
  74.       )
  75.     )
  76.  
  77.     (if overwrite
  78.         (
  79.            ; detect the pagesize (4K or 8K)
  80.            (set pagesize (run "/tools/ShowPageSize"))
  81.  
  82.            (select pagesize
  83.              (abort "Error interno en el Script de instalación")
  84.              ((set info_string "Un tamaño de página de 4K se puede usar en su sistema")
  85.               (set default_choice 0))
  86.              ((set info_string "Un tamaño de página de 8K se puede usar en su sistema")
  87.               (set default_choice 1))
  88.              ((set info_string "Se puede usar un tamaño de página de 4K u 8K en su sistema")
  89.               (set default_choice 0))
  90.            )
  91.  
  92.            (set my_choice (askchoice (prompt "\nElija un tamaño de página:\n\n"
  93.                                            info_string ".\n")
  94.                                    (help   def_help @askchoice-help)
  95.                                    (choices "4K pagesize" "8K pagesize")
  96.                                    (default default_choice))
  97.            )
  98.  
  99.            (select my_choice
  100.             (set sizestr "4K")
  101.             (set sizestr "8K")
  102.            )
  103.  
  104.            ; copy the new VMM file to the destination directory
  105.            (if copy_icons
  106.               ; then
  107.                 (copyfiles (prompt ("\nCopiando VMM a %s." vmmdest))
  108.                            (help   def_help @copyfiles-help)
  109.                            (optional "oknodelete")
  110.                            (optional "askuser")
  111.                            (source "/")
  112.                            (choices  "VMM")
  113.                            (dest     vmmdest)
  114.                            (infos)
  115.                            (confirm)
  116.                 )
  117.               ; else
  118.                 (copyfiles (prompt ("\nCopiando VMM a %s." vmmdest))
  119.                            (help   def_help @copyfiles-help)
  120.                            (optional "oknodelete")
  121.                            (optional "askuser")
  122.                            (source "/")
  123.                            (choices  "VMM")
  124.                            (dest     vmmdest)
  125.                            (confirm)
  126.                 )
  127.            )
  128.  
  129.            ; copy the catalog for VMM
  130. ;          not used in english version, because English is built in
  131.           (copyfiles (prompt "\nCopiando VMM.catalog a LOCALE:catalogs/español.")
  132.                       (help   def_help @copyfiles-help)
  133.                       (optional "oknodelete")
  134.                       (optional "askuser")
  135.                       (source  "/catalogs/español/VMM.catalog")
  136.                       (dest    "LOCALE:catalogs/español")
  137.                       (confirm)
  138.           )
  139.  
  140.  
  141.  
  142.            ; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
  143.            (set handler_name (cat "/l/VMM-Handler_" sizestr))
  144.            (copyfiles (prompt "\nCopiando VMM-Handler a l:.")
  145.                       (help   def_help @copyfiles-help)
  146.                       (optional "oknodelete")
  147.                       (optional "askuser")
  148.                       (source  handler_name)
  149.                       (dest    "l:")
  150.                       (newname "VMM-Handler")
  151.                       (confirm)
  152.            )
  153.  
  154.            ; copy the catalog for the VMM-handler
  155. ;          not used in english version, because English is built in
  156.           (copyfiles (prompt "\nCopiando VMM-Handler.catalog a LOCALE:catalogs/español.")
  157.                       (help   def_help @copyfiles-help)
  158.                       (optional "oknodelete")
  159.                       (optional "askuser")
  160.                       (source  "/catalogs/english/VMM-Handler.catalog")
  161.                       (dest    "LOCALE:catalogs/español")
  162.                       (confirm)
  163.           )
  164.         )
  165.      )
  166.  
  167.  
  168.  
  169.     ; ask, if we want to overwrite the old preferences file
  170.     ; default: do overwrite preferences file
  171.     (set overwrite 1)
  172.     (if (exists "envarc:VMM.prefs")
  173.         (if (= 0 (askbool (prompt "\nYa tenia grabadas unas preferencias.\n¿Quiere reescribirlas?\n\n")
  174.                      (help "Si no las sobreescribe serán convertidas en el próximo paso." @askbool-help)
  175.                      (default 0)
  176.                      (choices "Si" "No")))
  177.               (set overwrite 0)
  178.         )
  179.     )
  180.  
  181.     (if overwrite
  182.       (
  183.         ; copy the new preferences file to env: and envarc:
  184.         (copyfiles (prompt ("\nCopiando VMM.prefs a env:\n"))
  185.                    (help   def_help @copyfiles-help)
  186.                    (optional "oknodelete")
  187.                    (optional "askuser")
  188.                    (source  "/env/VMM.prefs")
  189.                    (dest    "env:")
  190.                    (confirm)
  191.         )
  192.         (copyfiles (prompt ("\nCopiando VMM.prefs a envarc:\n"))
  193.                    (help   def_help @copyfiles-help)
  194.                    (optional "oknodelete")
  195.                    (optional "askuser")
  196.                    (source  "/env/VMM.prefs")
  197.                    (dest    "envarc:")
  198.                    (confirm)
  199.         )
  200.       )
  201.     ; else
  202.       (if (= 1 (askbool (prompt "El formato de las preferencias ha cambiado desde la versión V2.1\n¿Quiere convertirlas al nuevo formato?"
  203.                      (help def_help @askbool-help)
  204.                      (default 1)
  205.                      (choices "Si" "No"))))
  206.         (run "/tools/ConvVMMCfg")
  207.       )
  208.     )
  209.   )
  210. )
  211.  
  212. ; Copy docs
  213.  
  214. (if copy_docs
  215.     (
  216.       ;get destination directory for "VMM.guide"
  217.       (set doc_dir (tackon vmmdest "doc"))
  218.  
  219.       (if (AND (= 0 @user-level) (NOT (exists doc_dir)))
  220.           ; then
  221.           (makedir doc_dir (infos))
  222.       )
  223.  
  224.       (set vmmdocs
  225.            (askdir (prompt "Seleccione el directorio donde quiere poner\nlos manuales y las guías.")
  226.                    (help   "Debería ser un directorio donde pone normalmente las guías.\n\n"
  227.                            def_help @askdir-help)
  228.                    (default doc_dir)
  229.                    (newpath)
  230.                    (disk)
  231.            )
  232.       )
  233.  
  234.       (if copy_dev
  235.         (if copy_icons
  236.            ; then
  237.            (copyfiles (prompt ("\nCopiando manuales..."))
  238.                       (help   def_help @copyfiles-help)
  239.                       (optional "oknodelete")
  240.                       (optional "askuser")
  241.                       (source  "/doc")
  242.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  243.                       (dest    vmmdocs)
  244.                       (infos)
  245.                       (confirm)
  246.            )
  247.            ; else
  248.            (copyfiles (prompt ("\nCopiando manuales..."))
  249.                       (help   def_help @copyfiles-help)
  250.                       (optional "oknodelete")
  251.                       (optional "askuser")
  252.                       (source  "/doc")
  253.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  254.                       (dest    vmmdocs)
  255.                       (confirm)
  256.            )
  257.         )
  258.       ; else
  259.         (if copy_icons
  260.             ; then
  261.               (copyfiles (prompt ("\nCopiando VMM.guide a " vmmdocs "."))
  262.                          (help   def_help @copyfiles-help)
  263.                          (optional "oknodelete")
  264.                          (optional "askuser")
  265.                          (source  "/doc")
  266.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  267.                          (dest    vmmdocs)
  268.                          (infos)
  269.                          (confirm)
  270.               )
  271.             ; else
  272.               (copyfiles (prompt ("\nCopiando VMM.guide a " vmmdocs "."))
  273.                          (help   def_help @copyfiles-help)
  274.                          (optional "oknodelete")
  275.                          (optional "askuser")
  276.                          (source  "/doc")
  277.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  278.                          (dest    vmmdocs)
  279.                          (confirm)
  280.               )
  281.         )
  282.       )
  283.     )
  284. )
  285.  
  286. ; Copy developer files
  287.  
  288. (if copy_dev
  289.     (
  290.       (copylib (prompt ("\nCopiando VMM.library a libs:."))
  291.                (help   def_help @copyfiles-help)
  292.                (optional "oknodelete")
  293.                (optional "askuser")
  294.                (source  "/Developer/libs/VMM.library")
  295.                (dest    "libs:")
  296.                (confirm)
  297.       )
  298.  
  299.       (if (exists ("fd:") (noreq))
  300.           ; then
  301.             (set fd_dir "fd:")
  302.           ; else
  303.             (set fd_dir
  304.                  (askdir (prompt "Elija el directorio donde quiere poner el fichero fd.")
  305.                          (help   def_help  @askdir-help)
  306.                          (default "SYS:")
  307.                          (disk)
  308.                  )
  309.             )
  310.       )
  311.  
  312.       (if (exists ("include:") (noreq))
  313.           ; then
  314.             (set inc_dir "include:")
  315.           ; else
  316.             (set inc_dir 
  317.                  (askdir (prompt "Elija el directorio donde quiere poner los 'includes'.")
  318.                          (help   def_help  @askdir-help)
  319.                          (default "SYS:")
  320.                          (disk)
  321.                  )
  322.             )
  323.       )
  324.  
  325.       (if (exists ("lib:") (noreq))
  326.           ; then
  327.             (set lib_dir "lib:")
  328.           ; else
  329.             (set lib_dir
  330.                  (askdir (prompt "Elija el directorio donde quiere poner el fichero 'lib'.")
  331.                          (help   def_help  @askdir-help)
  332.                          (default "SYS:")
  333.                          (disk)
  334.                  )
  335.             )
  336.       )
  337.  
  338.  
  339.       (copyfiles (prompt ("\nCopiando VMM_lib.fd a " fd_dir "."))
  340.                  (help   def_help @copyfiles-help)
  341.                  (optional "oknodelete")
  342.                  (optional "askuser")
  343.                  (source  "/Developer/fd")
  344.                  (choices "VMM_lib.fd")
  345.                  (dest    fd_dir)
  346.                  (confirm)
  347.       )
  348.  
  349.       (copyfiles (prompt ("\nCopiando VMM_stat.h a " inc_dir "."))
  350.                  (help   def_help @copyfiles-help)
  351.                  (optional "oknodelete")
  352.                  (optional "askuser")
  353.                  (source  "/Developer/include")
  354.                  (choices "VMM_Stat.h")
  355.                  (dest    inc_dir)
  356.                  (confirm)
  357.       )
  358.  
  359.       (copyfiles (prompt ("\nCopiando VMM_lib.lib a " lib_dir "."))
  360.                  (help   def_help @copyfiles-help)
  361.                  (optional "oknodelete")
  362.                  (optional "askuser")
  363.                  (source  "/Developer/lib")
  364.                  (choices "VMM_lib.lib")
  365.                  (dest    lib_dir)
  366.                  (confirm)
  367.       )
  368.     )
  369. )
  370.  
  371. ; Copy tools
  372.  
  373. (if copy_tools
  374.   (
  375.   if copy_icons
  376.     ; then
  377.       (copyfiles (prompt ("\nCopiando herramientas a " vmmdest "."))
  378.                  (help   def_help @copyfiles-help)
  379.                  (optional "oknodelete")
  380.                  (optional "askuser")
  381.                  (source  "/tools")
  382.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  383.                  (dest    vmmdest)
  384.                  (infos)
  385.                  (confirm)
  386.       )
  387.     ; else
  388.       (copyfiles (prompt ("\nCopiando herramientas a " vmmdest "."))
  389.                  (help   def_help @copyfiles-help)
  390.                  (optional "oknodelete")
  391.                  (optional "askuser")
  392.                  (source  "/tools")
  393.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  394.                  (dest    vmmdest)
  395.                  (confirm)
  396.       )
  397.   )
  398. )
  399.  
  400. ;
  401.  
  402. ; Copy ARexx scripts
  403.  
  404. (if copy_rexx
  405.   (copyfiles (prompt ("\nCopiando scripts ARexx to REXX:"))
  406.              (help   def_help @copyfiles-help)
  407.              (optional "oknodelete")
  408.              (optional "askuser")
  409.              (source  "/rexx")
  410.              (choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
  411.              (dest    "REXX:")
  412.              (confirm)
  413.   )
  414. )
  415.  
  416.